home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / pcqpascalv1.2d.lha / Include / Utility / Utility.i < prev    next >
Text File  |  1997-05-07  |  2KB  |  108 lines
  1.  
  2.  
  3. {$I "Include:Exec/Libraries.i"}
  4. {$I "Include:Exec/Ports.i"}
  5. {$I "Include:Utility/Name.i"}
  6.  
  7. Type
  8.  
  9.   DivMod32Rec = record
  10.         Ddividend,
  11.         Divisor,
  12.         Quotient,
  13.         Remainder       : Integer;
  14.   end;
  15.   DivMod32RecPtr = ^DivMod32Rec;
  16.  
  17.  
  18. Type
  19.  UtilityBaseRec = Record
  20.     ub_LibNode : Library;
  21.     ub_Language,
  22.     ub_Reserved : Byte;
  23.  end;
  24.  
  25. {$I "Include:Utility/UtilityBaseVar.i"}
  26.  
  27. FUNCTION SDivMod32( DM32R : DivMod32RecPtr) : DivMod32RecPtr;
  28.     External;
  29.  
  30. FUNCTION SMult32(Arg1, Arg2 : Integer) : Integer;
  31.     External;
  32.  
  33. FUNCTION UStricmp(Str1, Str2 : String) : Integer;
  34.     External;
  35.  
  36. FUNCTION UStrnicmp(Str1, Str2 : String; len : Integer) : Integer;
  37.     External;
  38.  
  39. FUNCTION UToLower(c : Integer) : Char;
  40.     External;
  41.  
  42. FUNCTION UToUpper(c : Integer) : Char;
  43.     External;
  44.  
  45. FUNCTION UDivMod32( DM32R : DivMod32RecPtr) : DivMod32RecPtr;
  46.     External;
  47.  
  48. FUNCTION UMult32(Arg1, Arg2 : Integer) : Integer;
  49.     External;
  50.  
  51. { --- functions in V39 or higher (Release 3) --- }
  52.  
  53. { More tag Item functions }
  54.  
  55. PROCEDURE ApplyTagChanges(TagList, ChangeList : Address);
  56.     External;
  57.  
  58. { 64 bit integer multiply functions. The results are 64 bit quantities }
  59. { returned in D0 and D1 }
  60.  
  61. FUNCTION SMult64(Arg1, Arg2 : Integer) : Integer;
  62.     External;
  63.  
  64. FUNCTION UMult64(Arg1, Arg2 : Integer) : Integer;
  65.     External;
  66.  
  67. { Structure of Tag and Tag to Structure support routines }
  68.  
  69. FUNCTION PackStructureTags(pack, packTable, TagList : Address) : Integer;
  70.     External;
  71.  
  72. FUNCTION UnpackStructureTags(pack, packTable, TagList : Address) : Integer;
  73.     External;
  74.  
  75. { New, object-oriented NameSpaces }
  76.  
  77. FUNCTION AddNamedObject(nameSpace, obj : NamedObjectPtr) : Boolean;
  78.     External;
  79.  
  80. FUNCTION AllocNamedObjectA(name : String; TagList : Address) : NamedObjectPtr;
  81.     External;
  82.  
  83. FUNCTION AttemptRemNamedObject(obj : NamedObjectPtr) : Integer;
  84.     External;
  85.  
  86. FUNCTION FindNamedObject(nameSpace : NamedObjectPtr; name : String; 
  87.                          lastobject: NamedObjectPtr) : NamedObjectPtr;
  88.     External;
  89.  
  90. PROCEDURE FreeNamedObject(Obj : NamedObjectPtr);
  91.     External;
  92.  
  93. FUNCTION NamedObjectName(Obj : NamedObjectPtr) : String;
  94.     External;
  95.  
  96. PROCEDURE ReleaseNamedObject(Obj : NamedObjectPtr);
  97.     External;
  98.  
  99. PROCEDURE RemNamedObject(Obj : NamedObjectPtr; Msg : MessagePtr);
  100.     External;
  101.  
  102. { Unique ID generator }
  103.  
  104. FUNCTION GetUniqueID : Integer;
  105.     External;
  106.  
  107.  
  108.